home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / perl5.002 / lib / syslog.pl < prev    next >
Encoding:
Text File  |  1996-07-11  |  811 b   |  33 lines  |  [TEXT/MPS ]
  1. #
  2. # syslog.pl
  3. #
  4. # $Log:    syslog.pl,v $
  5. # 
  6. # tom christiansen <tchrist@convex.com>
  7. # modified to use sockets by Larry Wall <lwall@jpl-devvax.jpl.nasa.gov>
  8. # NOTE: openlog now takes three arguments, just like openlog(3)
  9. #
  10. # call syslog() with a string priority and a list of printf() args
  11. # like syslog(3)
  12. #
  13. #  usage: require 'syslog.pl';
  14. #
  15. #  then (put these all in a script to test function)
  16. #        
  17. #
  18. #    do openlog($program,'cons,pid','user');
  19. #    do syslog('info','this is another test');
  20. #    do syslog('mail|warning','this is a better test: %d', time);
  21. #    do closelog();
  22. #    
  23. #    do syslog('debug','this is the last test');
  24. #    do openlog("$program $$",'ndelay','user');
  25. #    do syslog('notice','fooprogram: this is really done');
  26. #
  27. #    $! = 55;
  28. #    do syslog('info','problem was %m'); # %m == $! in syslog(3)
  29.  
  30. use Sys::Syslog;
  31.  
  32. 1;
  33.